home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Debug.ra < prev    next >
Encoding:
Text File  |  1986-10-21  |  807 b   |  45 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Debug example
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ allows you to programatically!" "toggle tracing on or off.!"
  10. "Any code imbedded between {} !" "will toggle tracing from its!"
  11. "current setting.!" "Make sure the input window is as!"
  12. "large as possible when running this!" "program. Without obscuring!"
  13. "the output.!!"
  14. #A;
  15. 10 A: (@ A. 1 - A: A. 0 > ~ A. ! "!"
  16. 10 B: {(B. 1 - B: B. 0 > ~ B. ! "!")})
  17. #A;
  18. "Try running this program with!"
  19. "'Instruction Select' selected.!!"
  20. #A;
  21. "THE END."
  22. $
  23. &A
  24. "Hit any key: " ?ñ ╡ @`
  25. |
  26. |  RA title routine
  27. |
  28. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  29.  
  30. &O
  31. 40 100 ╜
  32. "RA¬"
  33. 60 45 ╜ 
  34. "⌐ 1986 COM~LINK & S.Koren" 
  35. 80 60 ╜
  36. "All rights reserved." `
  37.  
  38. &L
  39. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  40.  
  41. &N
  42. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  43.  
  44. &P ?ñ @ `
  45. $